perm filename EXAMP1.PR[E81,JMC] blob sn#598909 filedate 1981-07-11 generic text, type T, neo UTF8
member(H,[H|←]).
member(I,[←|T]) :- member(I,T).

member1(H,[H|←]) :- !.
member1(I,[←|T]) :- member1(I,T).